home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / misc / PowerCrawler.lha / PowerCrawler / Install < prev    next >
Text File  |  1999-02-01  |  14KB  |  467 lines
  1. ;
  2. ;************************************************************************
  3. ;*                                    *
  4. ;*            Installation Script for PowerCrawler V1.20        *
  5. ;*              ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯        *
  6. ;*    (C) Copyright 1997 by Georg Steger. All rights reserved!    *
  7. ;*                                    *
  8. ;************************************************************************
  9.  
  10. (set LangFound 0)
  11.  
  12. (if (= "deutsch" @language)
  13.     (
  14.      (set #MSG_WELCOME "Willkommen zum Installationsprogramm für \"PowerCrawler\".")
  15.      (set #MSG_ASKLEVEL "Bitte wählen Sie, wie die Installation durchgeführt werden soll, je nach ihrem Wissensstand über den Amiga.")
  16.      (set #MSG_NOHELP "Keine Hilfe vorhanden!\n\nBestätigen Sie einfach alles und es sollte\nfunktionieren!")
  17.      (set #MSG_NeedsOS3.0 "PowerCrawler benötigt zumindest das\nAmiga OS 3.0, um zu funktionieren.\nTut mir leid")
  18.      (set #MSG_AllOK "Installation erfolgreich abgeschlossen!")
  19.      (set #MSG_SelectPath "Wo soll PowerCrawler installiert werden?\nEin Verzeichnis \"PowerCrawler\" wird automatisch erzeugt!")
  20.      (set #MSG_AllDone "PowerCrawler ist nun installiert. Starten Sie\nes durch Doppelklick auf \"PowerCrawler\"!")
  21.      (set #MSG_CopyingMain "Kopiere Hauptdateien und -verzeichnisse!")
  22.      (set #MSG_CopyingFiles "Kopiere: ")
  23.      (set #MSG_InstallWhat "Was wollen Sie installieren?")
  24.      (set #MSG_Startup "Füge PowerCrawler-Assign in S:User-Startup an!")
  25.      (set #MSG_MakeDir "Erzeuge Verzeichnis:\n\n")
  26.      (set #MSG_ToolType "Ändere Icon-Einstellung auf No-Icon-Position")
  27.      (set #MSG_WhichLanguage "Welche Sprachen sollen für die Benutzeroberfläche\ninstalliert werden (Englisch ist eingebaut)?")
  28.      (set #MSG_InPlace "Installiere PowerCrawler in gleichem Verzeichnis\n(\"in Place\")")
  29.      (set #MSG_CopyIO "Kopiere externe Level-Lade/Speicher-Routinen:\n(Nicht unbedingt erforderlich)")
  30.      (set #MSG_CopyPL "Kopiere externe Bild-Lade-Routinen:\n(Nicht unbedingt erforderlich)")
  31.      (set #MSG_CopyIcon "Kopiere Standard-Icons:")
  32.      (set #MSG_CopyCDCT "Kopiere Dateien für Katalog-Übersetzungen (CD,CT):")
  33.      (set #MSG_CopyPrj "Kopiere Demo Projekte:")
  34.      (set #MSG_CopyMap "Kopiere Demo Levels:")
  35.      (set #MSG_CopyPic "Kopiere Demo Bilder:")
  36.      (set #MSG_CopyDev "Kopiere Entwickler-Dateien:")
  37.      (set #MSG_CopyDoc "Kopiere Dokumentation:")
  38.      (set #MSG_CopyCat "Kopiere Übersetzung:")
  39.      (set #MSG_CopySet "Kopiere Voreinstellungs-Dateien:")
  40.      (set #MSG_UserAsk11 "Demo Projekte")
  41.      (set #MSG_UserAsk12 "Demo Levels")
  42.      (set #MSG_UserAsk13 "Demo Bilder")
  43.      (set #MSG_UserAsk14 "Entwickler Dateien")
  44.      (set #MSG_UserAsk15 "Dokumentation")
  45.      (set LangFound 1)
  46.     )
  47. )
  48.  
  49. (if (= "italiano" @language)
  50.     (
  51.      (set #MSG_WELCOME "Benvenuti nel programma di installazione di PowerCrawler.")
  52.      (set #MSG_ASKLEVEL "Indicare come l'installazione deve procedere (secondo la vostra conoscenza di Amiga).")
  53.      (set #MSG_NOHELP "Niente aiuto a disposizione!\nConferma tutto e dovrebbe funzionare!")
  54.      (set #MSG_NeedsOS3.0 "PowerCrawler richiede almeno l'Amiga OS 3.0 per funzionare. Mi dispiace!")
  55.      (set #MSG_AllOK "Installazione terminata con successo!")
  56.      (set #MSG_SelectPath "Dove vuole installare PowerCrawler?\nUna directory \"PowerCrawler\" sarà creata automaticamente!")
  57.      (set #MSG_AllDone "PowerCrawler è installato. Lo lanci con un doppio click su \"PowerCrawler\"!")
  58.      (set #MSG_CopyingMain "Copio i file e directory più importanti!")
  59.      (set #MSG_CopyingFiles "Copio: ")
  60.      (set #MSG_InstallWhat "Scelga cosa installare!")
  61.      (set #MSG_Startup "Aggiungo il PowerCrawler-Assign alla S:User-Startup!")
  62.      (set #MSG_MakeDir "Creo il directory:\n\n")
  63.      (set #MSG_ToolType "Cambio le impostazioni di posizione del Icon in No-Icon-Position")
  64.      (set #MSG_WhichLanguage "Quali lingue vuole installare per l'User Interface?\n(L'inglese è la lingua BUILT IN)")
  65.      (set #MSG_InPlace "Installo PowerCrawler nella stessa directory (\"in Place\")")
  66.      (set #MSG_CopyIO "Copio Map-Loaders/Savers esterni:\n(Non necessari per forza)")
  67.      (set #MSG_CopyPL "Copio Loaders di immagini esterni:\n(Non necessari per forza)")
  68.      (set #MSG_CopyIcon "Copio i Standard-Icons:")
  69.      (set #MSG_CopyCDCT "Copio i Files necessari per poter fare traduzioni dei catalogi (CD,CT):")
  70.      (set #MSG_CopyPrj "Copio Progetti Demo:")
  71.      (set #MSG_CopyMap "Copio Maps Demo:")
  72.      (set #MSG_CopyPic "Copio Immagini Demo:")
  73.      (set #MSG_CopyDev "Copio i Files per Programmatori:")
  74.      (set #MSG_CopyDoc "Copio Documentazione:")
  75.      (set #MSG_CopyCat "Copio Traduzione:")
  76.      (set #MSG_CopySet "Copio i Setting Files:")
  77.      (set #MSG_UserAsk11 "Progetti Demo")
  78.      (set #MSG_UserAsk12 "Maps Demo")
  79.      (set #MSG_UserAsk13 "Immagini Demo")
  80.      (set #MSG_UserAsk14 "Files per Programmatori")
  81.      (set #MSG_UserAsk15 "Documentazione")
  82.      (set LangFound 1)
  83.     )
  84. )
  85.  
  86. (if (= 0 LangFound)
  87.     (
  88.      (set #MSG_WELCOME "Welcome to the PowerCrawler installation utility.")
  89.      (set #MSG_ASKLEVEL "Please indicate how the installation should proceed (based upon your knowledge of the Amiga Computer).")
  90.      (set #MSG_NOHELP "No Help available!\n\nJust confirm everything and it should work!")
  91.      (set #MSG_NeedsOS3.0 "PowerCrawler needs at least Amiga OS 3.0\nto run. Sorry!")
  92.      (set #MSG_AllOK "Installation successfully terminated!")
  93.      (set #MSG_SelectPath "Where do you wish to install PowerCrawler?\nA drawer called \"PowerCrawler\" will be created automatically!")
  94.      (set #MSG_AllDone "PowerCrawler is now installed. Start it by\n double-clicking the \"PowerCrawler\"-Icon")
  95.      (set #MSG_CopyingMain "Copying main Files and Directories!")
  96.      (set #MSG_CopyingFiles "Copying: ")
  97.      (set #MSG_InstallWhat "Select what you want to install!")
  98.      (set #MSG_Startup "Adding PowerCrawler-Assign to the S:User-Startup")
  99.      (set #MSG_MakeDir "Creating Directory:\n\n")
  100.      (set #MSG_ToolType "Changing Icon-Settings to No-Icon-Position")
  101.      (set #MSG_WhichLanguage "Which languages do you want for the\nUser Interface (English is built in)?")
  102.      (set #MSG_InPlace "Installing PowerCrawler in place!")
  103.      (set #MSG_CopyIO "Copying external Map-Loaders/Savers:\n(PowerCrawler works without them, too)")
  104.      (set #MSG_CopyPL "Copying external Picture-Loaders:\n(PowerCrawler works without them, too)")
  105.      (set #MSG_CopyIcon "Copying Standard-Icons:")
  106.      (set #MSG_CopyCDCT "Copying necessary Files for translating Catalogs. (CD,CT)")
  107.      (set #MSG_CopyPrj "Copying Demo Projects:")
  108.      (set #MSG_CopyMap "Copying Demo Maps:")
  109.      (set #MSG_CopyPic "Copying Demo Pictures:")
  110.      (set #MSG_CopyDev "Copying Developer Files:")
  111.      (set #MSG_CopyDoc "Copying Documentation:")
  112.      (set #MSG_CopyCat "Copying Translation:")
  113.      (set #MSG_CopySet "Copying Setting Files:")
  114.      (set #MSG_UserAsk11 "Demo Projects")
  115.      (set #MSG_UserAsk12 "Demo Maps")
  116.      (set #MSG_UserAsk13 "Demo Pictures")
  117.      (set #MSG_UserAsk14 "Developer Files")
  118.      (set #MSG_UserAsk15 "Documenatation")
  119.     )
  120. )
  121.  
  122.  
  123. ;
  124. ;    ******** CHECK OS VERSION *********
  125. ;
  126.  
  127.  
  128. (set #OSVersion   (/ (getversion) 65536))
  129. (if (< #OSVersion 39)
  130.   (abort #MSG_NeedsOS3.0)
  131. )
  132.  
  133. (set #MSG_WELCOME2 "\n\n\n(This installation Script is available in english, deutsch and italiano. If you don't get the right language add the Tooltype \"LANGUAGE=????\" to the Install-Icon. To do this abort Installation now. Activate the Install-Icon with a single Mouse-CLick.")
  134. (set #MSG_WELCOME3 " Select \"Information\" in the Icons-Menu. A Window will appear, click on \"NEW\". Type in \"LANGUAGE=????\". ???? is the name of the language which MUST be lowercase. Click on the \"SAVE\" Button. That's it. This way you should get the desired language.)")
  135.  
  136. (message #MSG_WELCOME #MSG_WELCOME2 #MSG_WELCOME3)
  137. (welcome #MSG_ASKLEVEL)
  138.  
  139. (set #Destination
  140.     (Expandpath
  141.         (askdir (prompt #MSG_SelectPath)
  142.             (default @default-dest)
  143.             (help #MSG_NOHELP)
  144.         )
  145.     )
  146. )
  147.  
  148. (if (= #Destination (Expandpath ""))
  149.     ((message #MSG_InPlace)
  150.      (set @default-dest #Destination)
  151.      (makeassign "PowerCrawler" @default-dest)
  152.      (set #MyCommand (cat "Assign PowerCrawler: \"" @default-dest "\""))
  153.      (startup "PowerCrawler"
  154.         (prompt #MSG_Startup)
  155.         (help #MSG_NOHELP)
  156.         (command #MyCommand)
  157.         (confirm)
  158.      )
  159.      (complete 100)
  160.      (exit #MSG_AllDone)
  161.     )
  162. )
  163. (set @default-dest (tackon #Destination "PowerCrawler"))
  164.  
  165. ;
  166. ;        **** Ask what to install ****
  167. ;
  168.  
  169.  
  170. (set #MyMask (askoptions (prompt #MSG_InstallWhat)
  171.             (help #MSG_NoHelp)
  172.             (choices #MSG_UserAsk11 #MSG_Userask12 #MSG_UserAsk13 #MSG_UserAsk14 #MSG_UserAsk15)
  173.             (default -1)
  174.         )
  175. )
  176.  
  177. (set #LangMask (askoptions (prompt #MSG_WhichLanguage)
  178.                (help #MSG_NoHelp)
  179.                (choices "Deutsch" "Português")
  180.                (default -1)
  181.         )
  182. )
  183. ;
  184. ;        ********* MAKEDIR *********
  185. ;
  186.  
  187.  
  188. (complete 0)
  189.  
  190. (makedir @default-dest
  191.     (prompt (cat #MSG_MakeDir @default-dest))
  192.     (help #MSG_NOHELP)
  193.     (confirm)
  194. )
  195.  
  196. (copyfiles (help #MSG_NOHELP)
  197.        (prompt #MSG_CopyingFiles)
  198.        (source "/PowerCrawler.info")
  199.        (dest #Destination)
  200.        (confirm)
  201. )
  202.  
  203. (tooltype (help #MSG_NOHELP)
  204.       (prompt #MSG_Tooltype)
  205.       (dest (tackon #Destination "PowerCrawler"))
  206.       (noposition)
  207.       (confirm)
  208. )
  209.  
  210. (complete 5)
  211. ;
  212. ;        ******* COPY MAIN FILES *******
  213. ;
  214.  
  215. (copyfiles (prompt #MSG_CopyingMain)
  216.        (help #MSG_NOHELP)
  217.        (source "")
  218.        (choices "PowerCrawler" "ClickMe" "Projects.info" "Maps.info" "Pictures.info" "Icons.info" "Catalogs.info" "Logo")
  219.        (dest @default-dest)
  220.        (infos)
  221.        (confirm)
  222. )
  223.  
  224. (complete 30)
  225.  
  226. (copyfiles (prompt #MSG_CopySet)
  227.        (help #MSG_NOHELP)
  228.        (source "Prefs")
  229.        (dest (tackon @default-dest "Prefs"))
  230.        (all)
  231.        (confirm)
  232. )
  233.  
  234. (complete 35)
  235.  
  236. (copyfiles (prompt #MSG_CopyIO)
  237.        (help #MSG_NOHELP)
  238.        (source "ExternalIO")
  239.        (dest (tackon @default-dest "ExternalIO"))
  240.        (all)
  241.        (confirm)
  242. )
  243.  
  244. (if (= 0 (exists (tackon @default-dest "ExternalIO")))
  245.         (makedir (tackon @default-dest "ExternalIO")
  246.                  (prompt (cat #MSG_MakeDir (tackon @default-dest "ExternalIO")))
  247.                  (help #MSG_NOHELP)
  248.                  (confirm)
  249.         )
  250. )
  251.  
  252. (complete 40)
  253.  
  254. (copyfiles (prompt #MSG_CopyPL)
  255.        (help #MSG_NOHELP)
  256.        (source "ExternalPL")
  257.        (dest (tackon @default-dest "ExternalPL"))
  258.        (all)
  259.        (confirm)
  260. )
  261.  
  262. (if (= 0 (exists (tackon @default-dest "ExternalPL")))
  263.         (makedir (tackon @default-dest "ExternalPL")
  264.                  (prompt (cat #MSG_MakeDir (tackon @default-dest "ExternalPL")))
  265.                  (help #MSG_NOHELP)
  266.                  (confirm)
  267.         )
  268. )
  269.  
  270. (complete 42)
  271.  
  272. (copyfiles (prompt #MSG_CopyIcon)
  273.        (help #MSG_NOHELP)
  274.        (source "Icons")
  275.        (dest (tackon @default-dest "Icons"))
  276.        (all)
  277.        (confirm)
  278. )
  279.  
  280. (complete 44)
  281.  
  282. (copyfiles (prompt #MSG_CopyCDCT)
  283.        (help #MSG_NOHELP)
  284.        (source "Catalogs")
  285.        (dest (tackon @default-dest "Catalogs"))
  286.        (pattern "(#?.cd#?|#?.ct#?)")
  287.        (infos)
  288.        (confirm)
  289. )
  290.  
  291. ;
  292. ; ** Deutsche Catalog-Files
  293. ;
  294. (if (= 1 (BITAND #LangMask 1))
  295.     (copyfiles
  296.         (prompt #MSG_CopyCat)
  297.         (help #MSG_NOHELP)
  298.         (source "Catalogs/Deutsch")
  299.         (dest (tackon @default-dest "Catalogs/Deutsch"))
  300.         (infos)
  301.         (confirm)
  302.         (all)
  303.     )
  304. )
  305.  
  306. ;
  307. ; ** Portugisische Catalog-Files
  308. ;
  309.  
  310. (if (= 2 (BITAND #LangMask 2))
  311.     (copyfiles
  312.         (prompt #MSG_CopyCat)
  313.         (help #MSG_NOHELP)
  314.         (source "Catalogs/Português")
  315.         (dest (tackon @default-dest "Catalogs/Português"))
  316.         (infos)
  317.         (confirm)
  318.         (all)
  319.     )
  320. )
  321.  
  322. (complete 46)
  323.  
  324. (makedir (tackon @default-dest "Projects")
  325.      (prompt (cat #MSG_MakeDir (tackon @default-dest "Projects")))
  326.      (help #MSG_NOHELP)
  327.      (confirm)
  328. )
  329.  
  330. (complete 48)
  331.  
  332. (makedir (tackon @default-dest "Maps")
  333.      (prompt (cat #MSG_MakeDir (tackon @default-dest "Maps")))
  334.      (help #MSG_NOHELP)
  335.      (confirm)
  336. )
  337.  
  338. (complete 50)
  339.  
  340. (makedir (tackon @default-dest "Pictures")
  341.      (prompt (cat #MSG_MakeDir (tackon @default-dest "Pictures")))
  342.      (help #MSG_NOHELP)
  343.      (confirm)
  344. )
  345.  
  346.  
  347. ;
  348. ;        **** DEMO PROJECTS ****
  349. ;
  350.  
  351.  
  352. (complete 60)
  353.  
  354. (if (= 1 (BITAND #MyMask 1))
  355.     (copyfiles (help #MSG_NOHELP)
  356.                (prompt #MSG_CopyPrj)
  357.                (source "Projects")
  358.                (dest (tackon @default-dest "Projects"))
  359.                (pattern "#?")
  360.                (infos)
  361.                (confirm)
  362.     )
  363. )
  364.  
  365.  
  366. ;
  367. ;        **** DEMO MAPS ****
  368. ;
  369.  
  370.  
  371. (complete 70)
  372.  
  373. (if (= 2 (BITAND #MyMask 2))
  374.     (copyfiles (help #MSG_NOHELP)
  375.                (prompt #MSG_CopyMap)
  376.                (source "Maps")
  377.                (dest (tackon @default-dest "Maps"))
  378.                (pattern "#?")
  379.                (infos)
  380.                (confirm)
  381.     )
  382. )
  383.  
  384. ;
  385. ;        **** DEMO PICTURES ****
  386. ;
  387.  
  388.  
  389. (complete 80)
  390.  
  391. (if (= 4 (BITAND #MyMask 4))
  392.     (copyfiles (help #MSG_NOHELP)
  393.                (prompt #MSG_CopyPic)
  394.                (source "Pictures")
  395.                (dest (tackon @default-dest "Pictures"))
  396.                (pattern "#?")
  397.                (infos)
  398.                (confirm)
  399.     )
  400. )
  401.  
  402. ;
  403. ;        **** DEVELOPER FILES ****
  404. ;
  405.  
  406. (complete 90)
  407.  
  408. (if (= 8 (BITAND #MyMask 8))
  409.     ((copyfiles (help #MSG_NOHELP)
  410.                 (prompt #MSG_CopyDev)
  411.                 (source "Developer")
  412.                 (dest (tackon @default-dest "Developer"))
  413.                 (all)
  414.                 (infos)
  415.                 (confirm)
  416.      )
  417.      (copyfiles (help #MSG_NOHELP)
  418.                 (prompt #MSG_CopyDev)
  419.              (source "Developer.info")
  420.              (dest @default-dest)
  421.              (confirm)
  422.      )
  423.     )
  424. )
  425.  
  426. ;
  427. ;             **** DOCS ****
  428. ;
  429.  
  430. (complete 95)
  431.  
  432. (if (= 16 (BITAND #MyMask 16))
  433.     ((copyfiles (help #MSG_NOHELP)
  434.                 (prompt #MSG_CopyDoc)
  435.                 (source "Docs")
  436.                 (dest (tackon @default-dest "Docs"))
  437.                 (all)
  438.                 (infos)
  439.                 (confirm)
  440.      )
  441.      (copyfiles (help #MSG_NOHELP)
  442.                 (prompt #MSG_CopyDoc)
  443.              (source "Docs.info")
  444.              (dest @default-dest)
  445.              (confirm)
  446.      )
  447.     )
  448. )
  449.  
  450. ;
  451. ;        *** ASSIGN ***
  452. ;
  453.  
  454. (makeassign "PowerCrawler" @default-dest)
  455.  
  456. (set #MyCommand (cat "Assign PowerCrawler: \"" @default-dest "\""))
  457.  
  458. (startup "PowerCrawler" (prompt #MSG_Startup)
  459.             (help #MSG_NOHELP)
  460.             (command #MyCommand)
  461.             (confirm)
  462. )
  463.  
  464. (complete 100)
  465.  
  466. (exit #MSG_AllDone)
  467.